home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / pxflink.z / pxflink
Encoding:
Text File  |  2002-10-03  |  3.5 KB  |  80 lines
  1. PXFLINK(3F)                                           Last changed: 1-22-99
  2.  
  3.  
  4. NNAAMMEE
  5.      PPXXFFLLIINNKK - Creates a link to a file
  6.  
  7. SSYYNNOOPPSSIISS
  8.      CCHHAARRAACCTTEERR*_n _e_x_i_s_t_f,, _n_e_w_f
  9.      IINNTTEEGGEERR _l_e_n_e_x_i_s_t,, _l_e_n_n_e_w,, _i_e_r_r_o_r
  10.      CCAALLLL PPXXFFLLIINNKK((_e_x_i_s_t_f,, _l_e_n_e_x_i_s_t,, _n_e_w_f,, _l_e_n_n_e_w,, _i_e_r_r_o_r))
  11.  
  12. IIMMPPLLEEMMEENNTTAATTIIOONN
  13.      UNICOS, UNICOS/mk, and IRIX systems
  14.  
  15. SSTTAANNDDAARRDDSS
  16.      IEEE standard interface for FORTRAN 77
  17.  
  18. DDEESSCCRRIIPPTTIIOONN
  19.      On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
  20.      default when compiling programs with the MIPSpro 7 Fortran 90 compiler
  21.      or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
  22.      F77 compiler.
  23.  
  24.      The PPXXFFLLIINNKK routine uses the lliinnkk function to link an existing file to
  25.      a new file.
  26.  
  27.      When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
  28.      UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
  29.      kind unless documented otherwise.  On UNICOS and UNICOS/mk, default
  30.      kind is KKIINNDD==88 for integer, real, complex, and logical arguments; on
  31.      IRIX, the default kind is KKIINNDD==44.
  32.  
  33.      The following is a list of valid arguments for this routine:
  34.  
  35.      _e_x_i_s_t_f    An input character variable or array element containing the
  36.                name of an existing file.
  37.  
  38.      _l_e_n_e_x_i_s_t  An input integer variable containing the length of _e_x_i_s_t_f in
  39.                characters.  If _l_e_n_e_x_i_s_t is zero, all trailing blanks are
  40.                removed before calling lliinnkk().
  41.  
  42.      _n_e_w_f      An input character variable or array element containing the
  43.                name of a new file.
  44.  
  45.      _l_e_n_n_e_w    An input integer variable containing the length of _n_e_w_f in
  46.                characters.  If _l_e_n_n_e_w is zero, all trailing blanks are
  47.                removed before calling lliinnkk().
  48.  
  49.      _i_e_r_r_o_r    An output integer variable that contains zero if the link
  50.                was successful or nonzero if the link was not completed.
  51.  
  52.      In addition to the errors returned by the lliinnkk(2) system call, PPXXFFLLIINNKK
  53.      may return the following errors:
  54.  
  55.      EEIINNVVAALL    If _l_e_n_e_x_i_s_t < 0 or _l_e_n_e_x_i_s_t > LLEENN((_e_x_i_s_t_f)) or _l_e_n_n_e_w < 0 or
  56.                _l_e_n_n_e_w > LLEENN((_n_e_w_f)).
  57.  
  58.      EENNOOMMEEMM    If PPXXFFLLIINNKK is unable to obtain memory to copy _e_x_i_s_t_f or
  59.                _n_e_w_f.
  60.  
  61. EEXXAAMMPPLLEESS
  62.           program test
  63.           character*(12) filea, fileb
  64.           integer lenfila, lenfilb,ierr
  65.           filea = 'existfile'
  66.           fileb = 'newfile'
  67.           lenfila = 0
  68.           lenfilb = 0
  69.           call pxflink(filea,lenfila,fileb,lenfilb,ierr)
  70.           if (ierr.ne.0) then
  71.               print *,'FAIL: error from pxflink = ',ierr
  72.           else
  73.               print *,'PASS: No error from pxflink = '
  74.           endif
  75.           end
  76.  
  77. SSEEEE AALLSSOO
  78.      _A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed
  79.      version of this man page.
  80.